   1 .
   2 .BOWLING
   3 .
  10 clear ;&(0)=98;&(1)=98;&(2)=6;&(3)=6;&(9)=27;BC=4;NT=0;B=0;C=0;D=0;F=0;G=0;H=0;I=0;P=5;T=0;Q=0;R=0
  30 box -27,36,88,15,1;box -27,36,78,11,2;CX=-57;CY=36;print "BOWL-A-RAMA
  40 box -55,0,35,35,3;box -55,0,31,31,3;line -55,16,4;line -55,4,1;line -39,4,1;box 0,0,36,35,3;box 0,0,32,31,3
  50 line -1,16,4;line -1,4,1;line 16,4,1;box -27,-36,30,16,3;box -27,-36,26,12,3;CX=-39;CY=-23;print "FRAME
  60 box 55,0,34,87,1;box 41,0,1,87,3;box 68,0,1,87,3;E=2;gosub 390
  70 E=1;CX=R-54;CY=-33;print " ";if P>3P=0;F=F+1;Q=1;CX=-33;CY=-36;print #2,F,;R=0
  80 P=P+1;if P>2Q=3;R=54
  90 if P-Q=0CX=R-63;CY=10;print " ",;CX=R-46;CY=10;print " ",
 100 CX=R-54;CY=-33;print "up ";NT=25;MU=70;NT=1;if Q=1V=1;FC=8;goto 120
 110 V=2;FC=177
 120 A=rnd (23)+43;if TR(V)=0goto 120
 130 &(19)=45;&(23)=83;&(16)=80;&(21)=31;A=A+JX(V);box A,B-37,2,2,2;B=B+8;if B>70goto 170
 140 if A<44A=40;goto 130
 150 if A>66A=70;goto 130
 160 goto 130
 170 box 55,-7,26,72,1;if A<45goto 480
 180 if T=8if A<64if A>47goto 480
 190 if A<48goto 410
 200 if A<51goto 400
 210 if A<54goto 390
 220 if A<55goto 460
 230 if A<57if P-Q=0E=2;goto 460
 240 if A<57goto 460
 250 if A<58goto 460
 260 if A<61goto 420
 270 if A<64goto 430
 280 if A<67goto 440
 290 goto 480
 295 Y=30;X=55;W=0;&(21)=0
 300 if PX(X,Y)=0W=W+1
 310 X=X+2;if X>64goto 330
 320 goto 300
 330 X=46;Y=Y+4;if Y<43goto 300
 340 if P-Q=0W=10-W;goto 370
 350 if W=0T=10-T;goto 380
 360 W=10-T-W
 370 T=W
 380 return 
 390 box 52,34,2,2,E;box 55,38,2,2,E;box 58,42,2,2,E
 400 box 49,38,2,2,E;box 52,42,2,2,E
 410 box 46,42,2,2,E;if E#2goto 480
 420 box 58,34,2,2,E;box 55,38,2,2,E;box 52,42,2,2,E
 430 box 61,38,2,2,E;box 58,42,2,2,E
 440 box 64,42,2,2,E;if E#2goto 480
 450 box 55,30,2,2,E;return 
 460 box 55,35,22,16,1;if E=1goto 480
 470 box 46,42,2,2,E;box 64,42,2,2,E;E=1
 480 gosub 295
 490 if Q=1J=C;K=D;goto 510
 500 J=G;K=H
 510 if F#11J=J+T
 520 if K>0J=J+T;K=K-1;if K>1goto 520
 530 CX=R-60;CY=-5;print #2,J,;if P-Q=1goto 570
 540 if T#10CX=R-63;CY=10;print #1,T,;goto 600
 550 CX=R-46;CY=10;print #1,"mul ",;if F=11P=P+1;goto 600
 560 K=K+2;P=P+1;goto 600
 570 CX=R-46;CY=10;if W#0print #1,T,;goto 600
 580 if T=0print #1,T,;goto 600
 590 print #1,"/",;if F#11K=K+1
 600 if Q=1C=J;D=K;goto 620
 610 G=J;H=K
 620 B=0;if F<10goto 680
 630 if P-Q=0goto 680
 640 if K=0goto 670
 650 if K>1P=P-1
 660 P=P-1;F=11;goto 690
 670 F=10;if P=4goto 700
 680 if P-Q=0goto 70
 690 T=0;goto 60
 700 CX=-51;CY=23;print "GAME OVER";if TR(1)run 
 710 goto 700
>:return 
